VtFontObject Example

The following example sets the font parameters for a chart title.

Private Sub Command1_Click()
   ' Ask user to supply a title.
   MSChart1.Title.Text = InputBox("Title?")
   ' Make Chart Title visible.
   MSChart1.Title.Location.Visible = True
   ' Set font for Chart Title.
   With MSChart1.Title.VtFont
      .Name = "Times New Roman"
      .Size = 18
      .Style = VtFontStyleBold Or _
      VtFontStyleItalic
      ' Use both StrikeThrough and Underline in the
      ' text.
      .Effect = VtFontEffectStrikeThrough Or _
      VtFontEffectUnderline
      ' Set text color to Blue.
      .VtColor.Set 0, 0, 255
   End With
End Sub